home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b6.d64 / matvec.l < prev    next >
Text File  |  2007-02-28  |  199b  |  10 lines
  1. 9000 PROC MATVEC(REF A(,),M,N,REF V(),REF P()) CLOSED
  2. 9010 FOR I#:=1 TO M DO
  3. 9020 S:=0
  4. 9030 FOR J#:=1 TO N DO
  5. 9040 S:=S+A(I#,J#)*V(J#)
  6. 9050 ENDFOR J#
  7. 9060 P(I#):=S
  8. 9070 ENDFOR I#
  9. 9080 ENDPROC MATVEC
  10.